﻿Imports libreriaClases

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim c As Carta = New Carta("0", "Mineria", "Roca")
        Dim c1 As Carta = New Carta("0", "Mineria", "Roca")

        pantalla.Text = "ID: " & c.pID & " Nombre: " & c.pNombre & " Desc.: " & c.pDescripcion & ControlChars.Lf & _
        c.compareTo(c1)
    End Sub
End Class
